num=sample(1:50,10,replace = TRUE)
n <- length(num)
for(i in 1:(n-1)) {
  for(j in (i+1):n) {
    if(num[i] < num[j]) {
      temp <- num[i]
      num[i] <- num[j]
      num[j] <- temp
    }
  }
}
print(num)

